home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Ap-Az / AudioVideoLib1.15.cpt / AudioVideo Library / background_6520.txt < prev    next >
Text File  |  1991-03-04  |  23KB  |  1,097 lines
  1. -- background: 6520 from stack: in
  2. -- bmap block id: 6806
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: CD
  6. ----- HyperTalk script -----
  7. on doCopyvol
  8.   global artistcopy,titlecopy,selcopy,perfcopy,sourcecopy,Bselcopy
  9.   put empty into Bselcopy
  10.   if the hilite of bkgnd button "Vol I" is true then
  11.     put field "artist" into artistcopy
  12.     put field "title" into titlecopy
  13.     put field "Isel" into selcopy
  14.     put field "Iperf" into perfcopy
  15.   end if
  16.   if the hilite of bkgnd button "Vol II" is true then
  17.     put bkgnd field "IIartist" into artistcopy
  18.     put bkgnd field "IItitle" into titlecopy
  19.     put bkgnd field "IIsel" into selcopy
  20.     put bkgnd field "IIperf" into perfcopy
  21.   end if
  22.   if the hilite of bkgnd button "Vol III" is true then
  23.     put bkgnd field "IIIartist" into artistcopy
  24.     put bkgnd field "IIItitle" into titlecopy
  25.     put bkgnd field "IIIsel" into selcopy
  26.     put bkgnd field "IIIperf" into perfcopy
  27.   end if
  28.   put field "format" into sourcecopy
  29.   answer "Destination of copied information?" with "cancel" or "volume" or "TAPE"
  30.   if it is "cancel" then exit doCopyVol
  31.   put it into reply
  32.   if reply is "volume" then
  33.     answer "Which volume or volumes?" with "volume II" or "volume III" or "vols II&III"
  34.     if it is "volume II" then toVol2
  35.     if it is "volume III" then toVol3
  36.     if it is "vols II&III" then
  37.       toVol2
  38.       toVol3
  39.     end if
  40.   end if
  41.   if reply is "TAPE"
  42.   then answer "Go to desired or make new TAPE card & paste"
  43. end doCopyVol
  44.  
  45. on toVol2
  46.   global artistcopy,titlecopy,perfcopy
  47.   put artistcopy into bkgnd field "IIartist"
  48.   put titlecopy into bkgnd field "IItitle"
  49.   put perfcopy into bkgnd field "IIperf"
  50. end toVol2
  51.  
  52. on toVol3
  53.   global artistcopy,titlecopy,perfcopy
  54.   put artistcopy into bkgnd field "IIIartist"
  55.   put titlecopy into bkgnd field "IIItitle"
  56.   put perfcopy into bkgnd field "IIIperf"
  57. end toVol3
  58.  
  59.  
  60.  
  61.  
  62. -- part 1 (field)
  63. -- low flags: 01
  64. -- high flags: 0002
  65. -- rect: left=366 top=94 right=109 bottom=488
  66. -- title width / last selected line: 0
  67. -- icon id / first selected line: 0 / 0
  68. -- text alignment: 1
  69. -- font id: 3
  70. -- text size: 10
  71. -- style flags: 0
  72. -- line height: 13
  73. -- part name: recording label
  74. ----- HyperTalk script -----
  75. on mouseDown
  76.   doRecLabel
  77. end mouseDown
  78.  
  79.  
  80. -- part 2 (field)
  81. -- low flags: 01
  82. -- high flags: 0002
  83. -- rect: left=63 top=0 right=15 bottom=213
  84. -- title width / last selected line: 0
  85. -- icon id / first selected line: 0 / 0
  86. -- text alignment: 1
  87. -- font id: 3
  88. -- text size: 10
  89. -- style flags: 0
  90. -- line height: 13
  91. -- part name: content class
  92. ----- HyperTalk script -----
  93. on mouseDown
  94.   doContentClass
  95. end mouseDown
  96.  
  97.  
  98.  
  99. -- part 3 (field)
  100. -- low flags: 00
  101. -- high flags: 0002
  102. -- rect: left=402 top=0 right=15 bottom=512
  103. -- title width / last selected line: 0
  104. -- icon id / first selected line: 0 / 0
  105. -- text alignment: 1
  106. -- font id: 3
  107. -- text size: 10
  108. -- style flags: 0
  109. -- line height: 13
  110. -- part name: catalog number
  111.  
  112.  
  113. -- part 4 (field)
  114. -- low flags: 00
  115. -- high flags: 0002
  116. -- rect: left=11 top=41 right=55 bottom=237
  117. -- title width / last selected line: 0
  118. -- icon id / first selected line: 0 / 0
  119. -- text alignment: 1
  120. -- font id: 3
  121. -- text size: 10
  122. -- style flags: 256
  123. -- line height: 13
  124. -- part name: artist
  125. ----- HyperTalk script -----
  126. on returnInField
  127.   click at location of field "title"
  128. end returnInField
  129.  
  130.  
  131.  
  132. -- part 5 (field)
  133. -- low flags: 00
  134. -- high flags: 0002
  135. -- rect: left=11 top=68 right=83 bottom=237
  136. -- title width / last selected line: 0
  137. -- icon id / first selected line: 0 / 0
  138. -- text alignment: 1
  139. -- font id: 3
  140. -- text size: 10
  141. -- style flags: 0
  142. -- line height: 13
  143. -- part name: title
  144. ----- HyperTalk script -----
  145. on returnInField
  146.   click at 15,103
  147. end returnInField
  148.  
  149.  
  150.  
  151. -- part 6 (field)
  152. -- low flags: 00
  153. -- high flags: 0002
  154. -- rect: left=11 top=98 right=126 bottom=237
  155. -- title width / last selected line: 0
  156. -- icon id / first selected line: 0 / 0
  157. -- text alignment: 0
  158. -- font id: 3
  159. -- text size: 10
  160. -- style flags: 0
  161. -- line height: 13
  162. -- part name: Iperf
  163.  
  164.  
  165. -- part 7 (field)
  166. -- low flags: 00
  167. -- high flags: 4007
  168. -- rect: left=11 top=140 right=242 bottom=237
  169. -- title width / last selected line: 0
  170. -- icon id / first selected line: 0 / 0
  171. -- text alignment: 0
  172. -- font id: 3
  173. -- text size: 10
  174. -- style flags: 0
  175. -- line height: 13
  176. -- part name: Isel
  177.  
  178.  
  179. -- part 10 (field)
  180. -- low flags: 80
  181. -- high flags: 0002
  182. -- rect: left=11 top=40 right=55 bottom=237
  183. -- title width / last selected line: 0
  184. -- icon id / first selected line: 0 / 0
  185. -- text alignment: 1
  186. -- font id: 3
  187. -- text size: 10
  188. -- style flags: 256
  189. -- line height: 13
  190. -- part name: IIartist
  191. ----- HyperTalk script -----
  192. on returnInField
  193.   click at location of field "IItitle"
  194. end returnInField
  195.  
  196.  
  197. -- part 11 (field)
  198. -- low flags: 80
  199. -- high flags: 0002
  200. -- rect: left=11 top=68 right=83 bottom=237
  201. -- title width / last selected line: 0
  202. -- icon id / first selected line: 0 / 0
  203. -- text alignment: 1
  204. -- font id: 3
  205. -- text size: 10
  206. -- style flags: 0
  207. -- line height: 13
  208. -- part name: IItitle
  209. ----- HyperTalk script -----
  210. on returnInField
  211.   click at 15,103
  212. end returnInField
  213.  
  214.  
  215. -- part 12 (field)
  216. -- low flags: 80
  217. -- high flags: 0002
  218. -- rect: left=11 top=98 right=126 bottom=237
  219. -- title width / last selected line: 0
  220. -- icon id / first selected line: 0 / 0
  221. -- text alignment: 0
  222. -- font id: 3
  223. -- text size: 10
  224. -- style flags: 0
  225. -- line height: 13
  226. -- part name: IIperf
  227.  
  228.  
  229. -- part 13 (field)
  230. -- low flags: 80
  231. -- high flags: 4007
  232. -- rect: left=11 top=140 right=242 bottom=237
  233. -- title width / last selected line: 0
  234. -- icon id / first selected line: 0 / 0
  235. -- text alignment: 0
  236. -- font id: 3
  237. -- text size: 10
  238. -- style flags: 0
  239. -- line height: 13
  240. -- part name: IIsel
  241.  
  242.  
  243. -- part 14 (field)
  244. -- low flags: 80
  245. -- high flags: 0002
  246. -- rect: left=11 top=40 right=55 bottom=237
  247. -- title width / last selected line: 0
  248. -- icon id / first selected line: 0 / 0
  249. -- text alignment: 1
  250. -- font id: 3
  251. -- text size: 10
  252. -- style flags: 256
  253. -- line height: 13
  254. -- part name: IIIartist
  255. ----- HyperTalk script -----
  256. on returnInField
  257.   click at location of field "IIItitle"
  258. end returnInField
  259.  
  260.  
  261. -- part 15 (field)
  262. -- low flags: 80
  263. -- high flags: 0002
  264. -- rect: left=11 top=68 right=83 bottom=237
  265. -- title width / last selected line: 0
  266. -- icon id / first selected line: 0 / 0
  267. -- text alignment: 1
  268. -- font id: 3
  269. -- text size: 10
  270. -- style flags: 0
  271. -- line height: 13
  272. -- part name: IIItitle
  273. ----- HyperTalk script -----
  274. on returnInField
  275.   click at 15,103
  276. end returnInField
  277.  
  278.  
  279. -- part 16 (field)
  280. -- low flags: 80
  281. -- high flags: 0002
  282. -- rect: left=11 top=98 right=126 bottom=237
  283. -- title width / last selected line: 0
  284. -- icon id / first selected line: 0 / 0
  285. -- text alignment: 0
  286. -- font id: 3
  287. -- text size: 10
  288. -- style flags: 0
  289. -- line height: 13
  290. -- part name: IIIperf
  291.  
  292.  
  293. -- part 17 (field)
  294. -- low flags: 80
  295. -- high flags: 4007
  296. -- rect: left=11 top=140 right=242 bottom=237
  297. -- title width / last selected line: 0
  298. -- icon id / first selected line: 0 / 0
  299. -- text alignment: 0
  300. -- font id: 3
  301. -- text size: 10
  302. -- style flags: 0
  303. -- line height: 13
  304. -- part name: IIIsel
  305.  
  306.  
  307. -- part 18 (button)
  308. -- low flags: 00
  309. -- high flags: 0006
  310. -- rect: left=424 top=149 right=162 bottom=487
  311. -- title width / last selected line: 0
  312. -- icon id / first selected line: 0 / 0
  313. -- text alignment: 1
  314. -- font id: 0
  315. -- text size: 12
  316. -- style flags: 0
  317. -- line height: 16
  318. -- part name: Remarks
  319. ----- HyperTalk script -----
  320. on mouseUp
  321.   if the hilite of bkgnd button "Remarks" is false then
  322.     show bkgnd field "remarks"
  323.     set the hilite of bkgnd button "Remarks" to true
  324.   else
  325.     hide bkgnd field "remarks"
  326.     set the hilite of bkgnd button "Remarks" to false
  327.   end if
  328. end mouseUp
  329.  
  330.  
  331.  
  332. -- part 19 (field)
  333. -- low flags: 01
  334. -- high flags: 0002
  335. -- rect: left=423 top=172 right=186 bottom=458
  336. -- title width / last selected line: 0
  337. -- icon id / first selected line: 0 / 0
  338. -- text alignment: 1
  339. -- font id: 3
  340. -- text size: 10
  341. -- style flags: 256
  342. -- line height: 13
  343. -- part name: numVol
  344. ----- HyperTalk script -----
  345. on mouseDown
  346.   put "1;2;3" into choices
  347.  
  348.   put the value of 1 into lastItem
  349.   get topLeft of target
  350.  
  351.   get HPopUpMenu(choices, -lastItem, (item 2 of it),(item 1 of it))
  352.  
  353.   if the result is not empty then put the result
  354.  
  355.   if item 1 of it is not empty then
  356.     put item 1 of it into bkgnd fld "numVol"
  357.     if bkgnd fld "numVol" contains "1" then
  358.       setCD1
  359.     end if
  360.     if bkgnd fld "numVol" contains "2" then
  361.       if the hilite of bkgnd button "Vol III" is true then
  362.         setCD2
  363.       end if
  364.     end if
  365.   end if
  366. end mouseDown
  367.  
  368.  
  369. -- part 21 (button)
  370. -- low flags: 00
  371. -- high flags: 4006
  372. -- rect: left=353 top=192 right=204 bottom=422
  373. -- title width / last selected line: 0
  374. -- icon id / first selected line: 0 / 0
  375. -- text alignment: 1
  376. -- font id: 0
  377. -- text size: 12
  378. -- style flags: 0
  379. -- line height: 16
  380. -- part name: Vol I
  381. ----- HyperTalk script -----
  382. on mouseUp
  383.   setCD1
  384. end mouseUp
  385.  
  386.  
  387.  
  388. -- part 22 (button)
  389. -- low flags: 00
  390. -- high flags: 0006
  391. -- rect: left=353 top=210 right=223 bottom=420
  392. -- title width / last selected line: 0
  393. -- icon id / first selected line: 0 / 0
  394. -- text alignment: 1
  395. -- font id: 0
  396. -- text size: 12
  397. -- style flags: 0
  398. -- line height: 16
  399. -- part name: Vol II
  400. ----- HyperTalk script -----
  401. on mouseUp
  402.   setCD2
  403. end mouseUp
  404.  
  405.  
  406.  
  407. -- part 23 (button)
  408. -- low flags: 00
  409. -- high flags: 0006
  410. -- rect: left=353 top=228 right=240 bottom=420
  411. -- title width / last selected line: 0
  412. -- icon id / first selected line: 0 / 0
  413. -- text alignment: 1
  414. -- font id: 0
  415. -- text size: 12
  416. -- style flags: 0
  417. -- line height: 16
  418. -- part name: Vol III
  419. ----- HyperTalk script -----
  420. on mouseUp
  421.   if bkgnd fld "numVol" contains "3" then
  422.     if the hilite of bkgnd button "Vol III" is false then
  423.       set the hilite of bkgnd button "Vol III" to true
  424.       set the hilite of bkgnd button "Vol II" to false
  425.       set the hilite of bkgnd button "Vol I" to false
  426.       hide bkgnd field "Isel"
  427.       hide bkgnd field "title"
  428.       hide bkgnd field "Iperf"
  429.       hide bkgnd field "artist"
  430.       hide bkgnd field "IIsel"
  431.       hide bkgnd field "IItitle"
  432.       hide bkgnd field "IIartist"
  433.       hide bkgnd field "IIperf"
  434.       show bkgnd field "IIIsel"
  435.       show bkgnd field "IIItitle"
  436.       show bkgnd field "IIIartist"
  437.       show bkgnd field "IIIperf"
  438.     end if
  439.   end if
  440. end mouseUp
  441.  
  442.  
  443.  
  444. -- part 24 (field)
  445. -- low flags: 01
  446. -- high flags: 0002
  447. -- rect: left=316 top=130 right=147 bottom=351
  448. -- title width / last selected line: 0
  449. -- icon id / first selected line: 0 / 0
  450. -- text alignment: 0
  451. -- font id: 3
  452. -- text size: 12
  453. -- style flags: 0
  454. -- line height: 16
  455. -- part name: SPARS
  456. ----- HyperTalk script -----
  457. on mouseDown
  458.   put "AAD;ADD;DDD;XXD" into choices
  459.  
  460.   put the value of 1 into lastItem
  461.   get topLeft of target
  462.  
  463.   get HPopUpMenu(choices, -lastItem, (item 2 of it),(item 1 of it))
  464.  
  465.   if the result is not empty then put the result
  466.  
  467.   if item 1 of it is not empty then
  468.     put item 1 of it into bkgnd fld "SPARS"
  469.  
  470.   end if
  471. end mouseDown
  472.  
  473.  
  474. -- part 25 (field)
  475. -- low flags: 01
  476. -- high flags: 0002
  477. -- rect: left=274 top=0 right=15 bottom=358
  478. -- title width / last selected line: 0
  479. -- icon id / first selected line: 0 / 0
  480. -- text alignment: 1
  481. -- font id: 3
  482. -- text size: 10
  483. -- style flags: 0
  484. -- line height: 13
  485. -- part name: format
  486. ----- HyperTalk script -----
  487. on mouseDown
  488.   put "CD;CDV;CD+Graphics;CD 3 inch;CD 5 inch" into choices
  489.  
  490.   put the value of 1 into lastItem
  491.   get topLeft of target
  492.  
  493.   get HPopUpMenu(choices, -lastItem, (item 2 of it),(item 1 of it))
  494.  
  495.   if the result is not empty then put the result
  496.  
  497.   if item 1 of it is not empty then
  498.     put item 1 of it into bkgnd fld "format"
  499.  
  500.   end if
  501. end mouseDown
  502.  
  503.  
  504. -- part 26 (button)
  505. -- low flags: 00
  506. -- high flags: 2000
  507. -- rect: left=183 top=302 right=333 bottom=225
  508. -- title width / last selected line: 0
  509. -- icon id / first selected line: 0 / 0
  510. -- text alignment: 1
  511. -- font id: 0
  512. -- text size: 12
  513. -- style flags: 0
  514. -- line height: 16
  515. -- part name: TAPEswitch
  516. ----- HyperTalk script -----
  517. on mouseUp
  518.   goTAPE
  519. end mouseUp
  520.  
  521.  
  522.  
  523. -- part 27 (button)
  524. -- low flags: 00
  525. -- high flags: 2000
  526. -- rect: left=135 top=302 right=333 bottom=176
  527. -- title width / last selected line: 0
  528. -- icon id / first selected line: 0 / 0
  529. -- text alignment: 1
  530. -- font id: 0
  531. -- text size: 12
  532. -- style flags: 0
  533. -- line height: 16
  534. -- part name: LPswitch
  535. ----- HyperTalk script -----
  536. on mouseUp
  537.   goLP
  538. end mouseUp
  539.  
  540.  
  541.  
  542. -- part 28 (button)
  543. -- low flags: 00
  544. -- high flags: 2000
  545. -- rect: left=87 top=302 right=333 bottom=128
  546. -- title width / last selected line: 0
  547. -- icon id / first selected line: 0 / 0
  548. -- text alignment: 1
  549. -- font id: 0
  550. -- text size: 12
  551. -- style flags: 0
  552. -- line height: 16
  553. -- part name: CDdummy
  554. ----- HyperTalk script -----
  555. on mouseUp
  556.   put the number of cards of this background into quant
  557.   put ("AudioVideo Library currently contains " & quant & " sets of Compact Discs") into message box
  558. end mouseUp
  559.  
  560.  
  561.  
  562. -- part 29 (button)
  563. -- low flags: 00
  564. -- high flags: 2000
  565. -- rect: left=231 top=302 right=333 bottom=272
  566. -- title width / last selected line: 0
  567. -- icon id / first selected line: 0 / 0
  568. -- text alignment: 1
  569. -- font id: 0
  570. -- text size: 12
  571. -- style flags: 0
  572. -- line height: 16
  573. -- part name: VIDEOswitch
  574. ----- HyperTalk script -----
  575. on mouseUp
  576.   goVideo
  577. end mouseUp
  578.  
  579.  
  580.  
  581. -- part 30 (button)
  582. -- low flags: 00
  583. -- high flags: 2000
  584. -- rect: left=470 top=318 right=333 bottom=506
  585. -- title width / last selected line: 0
  586. -- icon id / first selected line: 0 / 0
  587. -- text alignment: 1
  588. -- font id: 0
  589. -- text size: 12
  590. -- style flags: 0
  591. -- line height: 16
  592. -- part name: SkipNext
  593. ----- HyperTalk script -----
  594. on mouseUp
  595.   go to next card of this background
  596. end mouseUp
  597.  
  598.  
  599.  
  600. -- part 31 (button)
  601. -- low flags: 00
  602. -- high flags: 2000
  603. -- rect: left=432 top=318 right=333 bottom=468
  604. -- title width / last selected line: 0
  605. -- icon id / first selected line: 0 / 0
  606. -- text alignment: 1
  607. -- font id: 0
  608. -- text size: 12
  609. -- style flags: 0
  610. -- line height: 16
  611. -- part name: SkipPrev
  612. ----- HyperTalk script -----
  613. on mouseUp
  614.   go to prev card of this background
  615. end mouseUp
  616.  
  617.  
  618.  
  619. -- part 32 (button)
  620. -- low flags: 00
  621. -- high flags: 2000
  622. -- rect: left=6 top=302 right=334 bottom=76
  623. -- title width / last selected line: 0
  624. -- icon id / first selected line: 0 / 0
  625. -- text alignment: 1
  626. -- font id: 0
  627. -- text size: 12
  628. -- style flags: 0
  629. -- line height: 16
  630. -- part name: Power
  631. ----- HyperTalk script -----
  632. on mouseUp
  633.   doPower
  634. end mouseUp
  635.  
  636.  
  637.  
  638. -- part 33 (button)
  639. -- low flags: 00
  640. -- high flags: 2000
  641. -- rect: left=394 top=290 right=305 bottom=430
  642. -- title width / last selected line: 0
  643. -- icon id / first selected line: 0 / 0
  644. -- text alignment: 1
  645. -- font id: 0
  646. -- text size: 12
  647. -- style flags: 0
  648. -- line height: 16
  649. -- part name: Play
  650. ----- HyperTalk script -----
  651. on mouseUp
  652.   doPlay
  653. end mouseUp
  654.  
  655.  
  656.  
  657. -- part 34 (button)
  658. -- low flags: 00
  659. -- high flags: 2000
  660. -- rect: left=280 top=318 right=333 bottom=316
  661. -- title width / last selected line: 0
  662. -- icon id / first selected line: 0 / 0
  663. -- text alignment: 1
  664. -- font id: 0
  665. -- text size: 12
  666. -- style flags: 0
  667. -- line height: 16
  668. -- part name: PrintCard
  669. ----- HyperTalk script -----
  670. on mouseUp
  671.   doPrint
  672. end mouseUp
  673.  
  674.  
  675.  
  676. -- part 35 (button)
  677. -- low flags: 00
  678. -- high flags: 2000
  679. -- rect: left=318 top=290 right=305 bottom=354
  680. -- title width / last selected line: 0
  681. -- icon id / first selected line: 0 / 0
  682. -- text alignment: 1
  683. -- font id: 0
  684. -- text size: 12
  685. -- style flags: 0
  686. -- line height: 16
  687. -- part name: NewCard
  688. ----- HyperTalk script -----
  689. on mouseUp
  690.   setCD1
  691.   visual effect scroll down
  692.   doMenu New Card
  693.   put "1" into bkgnd fld "numVol"
  694.   put "XXD" into bkgnd fld "SPARS"
  695. end mouseUp
  696.  
  697.  
  698.  
  699. -- part 36 (button)
  700. -- low flags: 00
  701. -- high flags: 2000
  702. -- rect: left=280 top=290 right=305 bottom=316
  703. -- title width / last selected line: 0
  704. -- icon id / first selected line: 0 / 0
  705. -- text alignment: 1
  706. -- font id: 0
  707. -- text size: 12
  708. -- style flags: 0
  709. -- line height: 16
  710. -- part name: Delete
  711. ----- HyperTalk script -----
  712. on mouseUp
  713.   doDelete
  714.   go to previous card of background "CD"
  715. end mouseUp
  716.  
  717.  
  718.  
  719. -- part 37 (button)
  720. -- low flags: 00
  721. -- high flags: 2000
  722. -- rect: left=394 top=318 right=333 bottom=430
  723. -- title width / last selected line: 0
  724. -- icon id / first selected line: 0 / 0
  725. -- text alignment: 1
  726. -- font id: 0
  727. -- text size: 12
  728. -- style flags: 0
  729. -- line height: 16
  730. -- part name: ToMaster
  731. ----- HyperTalk script -----
  732. on mouseUp
  733.   doMenu first
  734. end mouseUp
  735.  
  736.  
  737.  
  738. -- part 38 (button)
  739. -- low flags: 00
  740. -- high flags: 2000
  741. -- rect: left=432 top=290 right=305 bottom=468
  742. -- title width / last selected line: 0
  743. -- icon id / first selected line: 0 / 0
  744. -- text alignment: 1
  745. -- font id: 0
  746. -- text size: 12
  747. -- style flags: 0
  748. -- line height: 16
  749. -- part name: Prev
  750. ----- HyperTalk script -----
  751. on mouseUp
  752.   go to prev card
  753. end mouseUp
  754.  
  755.  
  756.  
  757. -- part 39 (button)
  758. -- low flags: 00
  759. -- high flags: 2000
  760. -- rect: left=470 top=290 right=305 bottom=506
  761. -- title width / last selected line: 0
  762. -- icon id / first selected line: 0 / 0
  763. -- text alignment: 1
  764. -- font id: 0
  765. -- text size: 12
  766. -- style flags: 0
  767. -- line height: 16
  768. -- part name: Next
  769. ----- HyperTalk script -----
  770. on mouseUp
  771.   go to next card
  772. end mouseUp
  773.  
  774.  
  775.  
  776. -- part 40 (field)
  777. -- low flags: 01
  778. -- high flags: 0002
  779. -- rect: left=449 top=124 right=139 bottom=489
  780. -- title width / last selected line: 0
  781. -- icon id / first selected line: 0 / 0
  782. -- text alignment: 1
  783. -- font id: 3
  784. -- text size: 10
  785. -- style flags: 0
  786. -- line height: 13
  787. -- part name: year
  788. ----- HyperTalk script -----
  789. on mouseDown
  790.   chooseYear
  791. end mouseDown
  792.  
  793.  
  794.  
  795.  
  796. -- part 41 (button)
  797. -- low flags: 00
  798. -- high flags: 2000
  799. -- rect: left=356 top=290 right=307 bottom=392
  800. -- title width / last selected line: 0
  801. -- icon id / first selected line: 0 / 0
  802. -- text alignment: 1
  803. -- font id: 0
  804. -- text size: 12
  805. -- style flags: 0
  806. -- line height: 16
  807. -- part name: Search
  808. ----- HyperTalk script -----
  809. on mouseUp
  810.   doSearch
  811. end mouseUp
  812.  
  813.  
  814.  
  815. -- part 42 (button)
  816. -- low flags: 00
  817. -- high flags: 2000
  818. -- rect: left=356 top=318 right=333 bottom=392
  819. -- title width / last selected line: 0
  820. -- icon id / first selected line: 0 / 0
  821. -- text alignment: 1
  822. -- font id: 0
  823. -- text size: 12
  824. -- style flags: 0
  825. -- line height: 16
  826. -- part name: Sort
  827. ----- HyperTalk script -----
  828. on mouseUp
  829.   push card
  830.   go to first card
  831.   doSort
  832. end mouseUp
  833.  
  834.  
  835.  
  836. -- part 63 (button)
  837. -- low flags: 00
  838. -- high flags: 2000
  839. -- rect: left=318 top=318 right=333 bottom=354
  840. -- title width / last selected line: 0
  841. -- icon id / first selected line: 0 / 0
  842. -- text alignment: 1
  843. -- font id: 0
  844. -- text size: 12
  845. -- style flags: 0
  846. -- line height: 16
  847. -- part name: Help
  848. ----- HyperTalk script -----
  849. on mouseUp
  850.   push card
  851.   go to card "CDhelp" of stack "AudioVideoUtilities"
  852. end mouseUp
  853.  
  854.  
  855.  
  856. -- part 65 (field)
  857. -- low flags: 80
  858. -- high flags: 4002
  859. -- rect: left=6 top=259 right=341 bottom=508
  860. -- title width / last selected line: 0
  861. -- icon id / first selected line: 0 / 0
  862. -- text alignment: 0
  863. -- font id: 3
  864. -- text size: 12
  865. -- style flags: 0
  866. -- line height: 16
  867. -- part name: remarks
  868.  
  869.  
  870. -- part 66 (button)
  871. -- low flags: 00
  872. -- high flags: 2000
  873. -- rect: left=463 top=231 right=251 bottom=502
  874. -- title width / last selected line: 0
  875. -- icon id / first selected line: 0 / 0
  876. -- text alignment: 1
  877. -- font id: 0
  878. -- text size: 12
  879. -- style flags: 0
  880. -- line height: 16
  881. -- part name: copy
  882. ----- HyperTalk script -----
  883. on mouseUp
  884.   global artistcopy,titlecopy,perfcopy,selcopy
  885.   doCopyVol
  886. end mouseUp
  887.  
  888.  
  889.  
  890. -- part 67 (button)
  891. -- low flags: 00
  892. -- high flags: 2000
  893. -- rect: left=287 top=94 right=109 bottom=488
  894. -- title width / last selected line: 0
  895. -- icon id / first selected line: 0 / 0
  896. -- text alignment: 1
  897. -- font id: 0
  898. -- text size: 12
  899. -- style flags: 0
  900. -- line height: 16
  901. -- part name: rec label activate
  902. ----- HyperTalk script -----
  903. on mouseDown
  904.   send mouseDown to field "recording label"
  905. end mouseDown
  906.  
  907.  
  908.  
  909. -- part 68 (button)
  910. -- low flags: 00
  911. -- high flags: 2000
  912. -- rect: left=421 top=124 right=139 bottom=489
  913. -- title width / last selected line: 0
  914. -- icon id / first selected line: 0 / 0
  915. -- text alignment: 1
  916. -- font id: 0
  917. -- text size: 12
  918. -- style flags: 0
  919. -- line height: 16
  920. -- part name: year activate
  921. ----- HyperTalk script -----
  922. on mouseDown
  923.   send mouseDown to field "year"
  924. end mouseDown
  925.  
  926.  
  927.  
  928. -- part 69 (button)
  929. -- low flags: 00
  930. -- high flags: 2000
  931. -- rect: left=281 top=130 right=147 bottom=351
  932. -- title width / last selected line: 0
  933. -- icon id / first selected line: 0 / 0
  934. -- text alignment: 1
  935. -- font id: 0
  936. -- text size: 12
  937. -- style flags: 0
  938. -- line height: 16
  939. -- part name: SPARS activate
  940. ----- HyperTalk script -----
  941. on mouseDown
  942.   send mouseDown to field "SPARS"
  943. end mouseDown
  944.  
  945.  
  946.  
  947. -- part 70 (button)
  948. -- low flags: 00
  949. -- high flags: 2000
  950. -- rect: left=322 top=172 right=186 bottom=458
  951. -- title width / last selected line: 0
  952. -- icon id / first selected line: 0 / 0
  953. -- text alignment: 1
  954. -- font id: 0
  955. -- text size: 12
  956. -- style flags: 0
  957. -- line height: 16
  958. -- part name: num vol activate
  959. ----- HyperTalk script -----
  960. on mouseDown
  961.   send mouseDown to field "numVol"
  962. end mouseDown
  963.  
  964.  
  965.  
  966. -- part 71 (button)
  967. -- low flags: 00
  968. -- high flags: 2000
  969. -- rect: left=0 top=0 right=15 bottom=213
  970. -- title width / last selected line: 0
  971. -- icon id / first selected line: 0 / 0
  972. -- text alignment: 1
  973. -- font id: 0
  974. -- text size: 12
  975. -- style flags: 0
  976. -- line height: 16
  977. -- part name: content class activate
  978. ----- HyperTalk script -----
  979. on mouseDown
  980.   send mouseDown to field "content class"
  981. end mouseDown
  982.  
  983.  
  984.  
  985. -- part 72 (button)
  986. -- low flags: 00
  987. -- high flags: 2000
  988. -- rect: left=216 top=0 right=15 bottom=358
  989. -- title width / last selected line: 0
  990. -- icon id / first selected line: 0 / 0
  991. -- text alignment: 1
  992. -- font id: 0
  993. -- text size: 12
  994. -- style flags: 0
  995. -- line height: 16
  996. -- part name: format activate
  997. ----- HyperTalk script -----
  998. on mouseDown
  999.   send mouseDown to field "format"
  1000. end mouseDown
  1001.  
  1002.  
  1003.  
  1004. -- part 73 (button)
  1005. -- low flags: 00
  1006. -- high flags: 0000
  1007. -- rect: left=78 top=28 right=43 bottom=170
  1008. -- title width / last selected line: 0
  1009. -- icon id / first selected line: 0 / 0
  1010. -- text alignment: 1
  1011. -- font id: 0
  1012. -- text size: 12
  1013. -- style flags: 0
  1014. -- line height: 16
  1015. -- part name: artist user entry
  1016. ----- HyperTalk script -----
  1017. on mouseDown
  1018.   fieldMsg
  1019. end mouseDown
  1020.  
  1021.  
  1022.  
  1023. -- part 74 (button)
  1024. -- low flags: 00
  1025. -- high flags: 0000
  1026. -- rect: left=78 top=55 right=70 bottom=170
  1027. -- title width / last selected line: 0
  1028. -- icon id / first selected line: 0 / 0
  1029. -- text alignment: 1
  1030. -- font id: 0
  1031. -- text size: 12
  1032. -- style flags: 0
  1033. -- line height: 16
  1034. -- part name: user entry
  1035. ----- HyperTalk script -----
  1036. on mouseDown
  1037.   fieldMsg
  1038. end mouseDown
  1039.  
  1040.  
  1041.  
  1042. -- part 75 (button)
  1043. -- low flags: 00
  1044. -- high flags: 0000
  1045. -- rect: left=78 top=84 right=99 bottom=170
  1046. -- title width / last selected line: 0
  1047. -- icon id / first selected line: 0 / 0
  1048. -- text alignment: 1
  1049. -- font id: 0
  1050. -- text size: 12
  1051. -- style flags: 0
  1052. -- line height: 16
  1053. -- part name: user entry
  1054. ----- HyperTalk script -----
  1055. on mouseDown
  1056.   fieldMsg
  1057. end mouseDown
  1058.  
  1059.  
  1060.  
  1061. -- part 76 (button)
  1062. -- low flags: 00
  1063. -- high flags: 0000
  1064. -- rect: left=79 top=127 right=142 bottom=171
  1065. -- title width / last selected line: 0
  1066. -- icon id / first selected line: 0 / 0
  1067. -- text alignment: 1
  1068. -- font id: 0
  1069. -- text size: 12
  1070. -- style flags: 0
  1071. -- line height: 16
  1072. -- part name: user entry
  1073. ----- HyperTalk script -----
  1074. on mouseDown
  1075.   fieldMsg
  1076. end mouseDown
  1077.  
  1078.  
  1079.  
  1080. -- part 77 (button)
  1081. -- low flags: 00
  1082. -- high flags: 0000
  1083. -- rect: left=364 top=0 right=15 bottom=402
  1084. -- title width / last selected line: 0
  1085. -- icon id / first selected line: 0 / 0
  1086. -- text alignment: 1
  1087. -- font id: 0
  1088. -- text size: 12
  1089. -- style flags: 0
  1090. -- line height: 16
  1091. -- part name: user entry
  1092. ----- HyperTalk script -----
  1093. on mouseDown
  1094.   fieldMsg
  1095. end mouseDown
  1096.  
  1097.